# Usage: standard.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	outputFile standard.ps 
	mapFile standard.map
	title "diplomacy map (regular map)"
	creator "Mario Huys (woelpad@yahoo.com)"
	$MapDrawingScale .75 $MapUnitScale .5 $MapSupplyScale .5
	$FrameThickness 6 $FrameMarginRatio .75
	images {
		chart {standard.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} BritishIsles Lakes Islands part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25}} LandBrown {}}
		coordinates {standard.base.ps {scan {} {provinces INFO supplies TLA powers COUNTRY}} {} {}}
	}
	borders {
		land {image {chart {LandBrown Brown}} LandBrown Border}
		internalBorders {image {chart Black} {} InternalBorder}
		borders {image {chart BorderBlack} {} NationalBorder}
		mountain {image {chart Grey} MountainGrey NationalBorder}
		lake {image {chart Blue} SeaBlue Border} 
	}
	locationTypes {
		Supplies {number 0 name 0 draw 1 define -1}
		Territories {number 0 name 1 populate 0 info 1}
	}
	locations {
		supplies {{coordinates supplies} Supplies s {Blue {} S}}
		coasts {{coordinates provinces} Territories c {Red DarkGreen AF} {
			NAF TUN SYR SMY CON ANK ARM SEV RUM GRE ALB TRI
			VEN APU NAP ROM TUS PIE MAR POR GAS BRE PIC BEL
			HOL KIE DEN BER PRU LVN FIN SWE NWY EDI YOR LON
			WAL LVP CLY
		}}
		lands {{coordinates provinces} Territories l {Green DarkGreen A} {
			SER BUD VIE TYR BUR PAR RUH MUN BOH GAL UKR MOS
			WAR SIL
		}}
		waters {{coordinates provinces} Territories w {White White F} {
			BAR NWG NTH SKA BAL BOT HEL ENG IRI NAO MAO WES
			LYO TYS ION ADR EAS AEG BLA
		}}
		greens {{coordinates provinces} Territories g {DarkGreen DarkGreen A} {
			BUL SPA STP
		}}
		beaches {{coordinates provinces} Territories b {Yellow {} F} {
			BUL/EC BUL/SC SPA/SC SPA/NC STP/SC STP/NC
		}}
		mountains {{coordinates provinces} Territories m {Black {} A} {
			SWI
		}}
	}
	powers {
		Austria {}
		England {}
		France {}
		Germany {}
		Italy {}
		Russia {}
		Turkey {}
	}
	layout {corner adjustments} fontSize 8
	orderHasHeading 2
	drawLayoutBorder 0 composed 0 printLayout 0 testBorder 0 
	addPage 0 pageContents {
		"\{"

		"200 40 DrawFleet"
		"200 40 180 140 ArrowPropose"
		"200 40 100 20 ArrowRetreat"
		"200 40 300 60 ArrowMove"
		
		"180 140 DrawArmy"
		"ProposePhase"
		"180 140 160 240 ArrowMove"
		"RetreatPhase"
		"180 140 80 120 ArrowMove"
		"MovePhase"
		"180 140 280 160 ArrowMove"

		"300 90 DrawFleet"
		"300 90 200 40 180 140 ArrowSupport"
		"300 120 DrawArmy"
		"300 120 180 140 ArrowHold"
		"300 150 DrawFleet"
		"300 150 180 140 160 240 ArrowConvoy"

		"\} dup exec -40 200 translate FailedOrder exec OkOrder 40 -200 translate"
				
		"400 200 DrawFleet"
		"400 200 ArrowArrive"
		"400 230 DrawArmy"
		"400 230 ArrowDepart"
		"400 260 DrawFleet"
		"400 260 ArrowRetreatArrive"
		"400 290 DrawArmy"
		"400 290 ArrowRetreatDepart"
		
		"500 200 DrawFleet"
		"500 200 BuildUnit"
		"500 230 DrawArmy"
		"500 230 DestroyUnit"
		"500 260 DrawFleet"
		"500 260 DisbandUnit"
		"500 290 DrawArmy"
		"500 290 RemoveUnit"
		"500 320 DrawFleet"
		"500 320 FindUnit"
		"500 350 DrawArmy"
		"500 350 LoseUnit"
		"500 380 DrawFleet"
		"500 380 QueryUnit"
    }
}
